Otherware/Otherware_1_SB_Development.iso/mac/hypercar/science/inttour.sit/Internet Local Info/stack_-1.xml

Extensible Markup Language | 1991-05-08 | 4.7 KB | 24 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>4</cardCount>
    <cardID>9740</cardID>
    <listID>5429</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openstack
global tourname
put tourname
if tourname = empty then
start using stack "internet tour 4.0.2"
put "internet tour 4.0.2" into tourname
else
start using stack tourname
end if
waitcursor
put ""
hide message box
global waitticks, thiseffect
put 1 into waitticks
hide card button "click me" of card 1
Hide bg button 1 of cd 2
set the visible of cd field "directions popup" of cd 2 to false
set the locktext of bg field "list" of cd 2 to true
set the locktext of bg field "title" of cd 2 to true
if item 4 of the screenrect < 481 then hide menubar
if the shiftkey is down then go cd id 124574
if the number of this cd is "1" then
set the showname of card button "click me" of cd 1 to false
show card button "click me" of cd 1
set the showname of card button "click me" of cd 1 to true
set cursor to hand
end if
end openstack

on checkfields
if the visible of bg button 1 = true then
if the locktext of bg field "list" = false ¬
or the visible of bg field "title" = false then
answer "Fields that are unlocked now will be locked when you come back to Local Info." with¬
"Continue" or "Stay here"
if it is "stay here" then exit to hypercard
end if
end if
end checkfields

on mouseup
global thiseffect, thistarget, whatwasclicked
if "field" is not in the name of the target  then
put "You have clicked on an inactive area."
wait 66 ticks
put ""
hide msg
exit mouseup
else
put the textstyle of the clickchunk into thestyle
if "group" is not in thestyle then
if the visible of bg button 1 <> true then
put "Please click on underlined text."
else
put "Unlock field using the Lock button, or click on underlined text."
end if
wait 76 ticks
put ""
hide msg
exit mouseup
else
if playsounds is "true" then play harpsichord
waitcursor
put the clicktext into whatwasclicked
push card
find whatwasclicked in the target
put "zoom open" into thiseffect
set the lockscreen to true
find whole whatwasclicked in field "title"
if the result is "" then
opencard
exit mouseup
else if the result is not "" then
put "Searching other stack (push BACK twice to come back.)"
searchitour
end if
end if
end if
repeat while the mouseclick
end repeat
end mouseup

on searchitour
global thiseffect, whatwasclicked, tourname
put "" into theresult
set the lockrecent to true
go cd "top menu" of stack tourname
if whatwasclicked is "Internet" then
go cd "The Internet description" of stack tourname
else if whatwasclicked is "arpanet" then
go cd "arpanet glossary" of stack tourname
else if whatwasclicked is "Network" then
go cd "Network glossary" of stack tourname
else if whatwasclicked is "telnet" then
go cd "telnet" of stack tourname
else
find whole whatwasclicked in field "level 4"
if the result is "" then
opencard
repeat while the mouseclick
end repeat
exit searchitour
else if the result is not "" then find whole whatwasclicked in field "level 2"
if the result is "" then
opencard
set lockrecent to false
repeat while the mouseclick
end repeat
exit searchitour
else if the result is not "" then find whole whatwasclicked in field "level 3"
if the result is "" then
opencard
set lockrecent to false
repeat while the mouseclick
end repeat
exit searchitour
else if the result is not "" then find whole whatwasclicked in field "level 3 glossary" -- fld 3 again
if the result is "" then
opencard
set lockrecent to false
repeat while the mouseclick
end repeat
exit searchitour
else if the result is not "" then find whole whatwasclicked in field "level 4"
if the result is "" then
opencard
set lockrecent to false
repeat while the mouseclick
end repeat
exit searchitour
else if the result is "" then
opencard
set lockrecent to false
repeat while the mouseclick
end repeat
exit searchitour
end if
end if
put the result into theresult
if theresult is not "" then
put "Sorry, couldn't find it."
put "plain" into thiseffect
pop card
wait 96 ticks
put ""
hide msg
end if
set the lockrecent to false
repeat while the mouseclick
end repeat
end searchitour</script>
    <background id="2679" file="background_2679.xml" name="4" />
    <background id="14286" file="background_14286.xml" name="menus" />
    <card id="9740" file="card_9740.xml" marked="false" name="" owner="14286" />
    <card id="2888" file="card_2888.xml" marked="false" name="local info popup" owner="2679" />
    <card id="4797" file="card_4797.xml" marked="false" name="donew popup" owner="2679" />
    <card id="2145" file="card_2145.xml" marked="false" name="donew popup 2" owner="2679" />
</stack>